1 CLR
2 BC=4:JC=10:JV=219:SC=7:BD=5
5 DIM B(32),P(31),T(31),C(31),CH(82):LI=31
8 FORD=1TO8:READD(D):NEXT
9 CH(1)=66:CH(2)=78:CH(42)=67:CH(82)=77:CH(81)=66:CH(80)=78:CH(40)=67:CH(0)=77
10 POKE53281,0:POKE53280,BD:POKE646,SC:PRINT"[147][142]"
15 FORA=0TO39:POKE55296+A,BC:POKE56256+A,BC:POKE1024+A,160:POKE1984+A,160:NEXT
20 FORA=40TO920STEP40:POKE55296+A,BC:POKE55335+A,BC:POKE1024+A,160
25 POKE1063+A,160:NEXT
30 L=1524:POKE54272+L,JC:POKEL,JV
90 M=L
100 GOSUB400
105 D=INT(RND(1)*9):IFD=0THEN100
110 IFINT(RND(1)*2)THENGOSUB300:GOTO100
200 L=L+D(D):IFPEEK(L)=160THENL=M:GOTO100
260 POKE54272+L,JC:POKEM,32:POKEL,JV:POKE54272+M,SC
270 GOTO90
300 FORA=0TOLI:IFB(A)=0THENV=A:A=LI:NEXT:GOTO320
310 NEXT:RETURN
320 IFPEEK(L+D(D))<>32THENRETURN
330 P(V)=D(D):T(V)=L+D(D):C(V)=CH(D(D)+41):B(V)=1:POKET(V),C(V):RETURN
400 A=0
405 IFB(A)THENGOSUB420
410 A=A+1:IFA=LI+1THENRETURN
415 GOTO405
420 IFPEEK(T(A)+P(A))=160THENPOKET(A),32:B(A)=0:RETURN
430 POKET(A),32:T(A)=T(A)+P(A):POKET(A),C(A):RETURN
60000 DATA -41,-40,-39,-1,1,39,40,41